Cream of the Crop 21/Cream of the Crop 21 (Terry Blount) (October 1996).iso/program/multlang.zip/MAIN.DFM/MAIN.txt

Text File | 1996-06-12 | 5KB | 204 lines

object MainForm: TMainForm
  Left = 232
  Top = 115
  Width = 518
  Height = 419
  Caption = 'TMultLang Bi Lingual Test Application'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  Position = poScreenCenter
  WindowMenu = Window1
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 347
    Width = 510
    Height = 26
    Align = alBottom
    BorderWidth = 1
    TabOrder = 0
    object StatusLine: TPanel
      Left = 2
      Top = 2
      Width = 445
      Height = 22
      Align = alClient
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      BorderWidth = 1
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Panel2: TPanel
      Left = 447
      Top = 2
      Width = 61
      Height = 22
      Align = alRight
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      TabOrder = 1
    end
  end
  object MultLang1: TMultLang
    Left = 68
    Top = 20
    Width = 145
    Height = 22
    AlignIcon = alLeft
    AlignText = alLeft
    IconMargin = 1
    ItemHeight = 16
    Items.Strings = (
      'English'
      'Swedish')
    ShowIcons = False
    Text = 'English'
    ResizeIcon = False
    TextMargin = 5
    AdoptOn = Language1
    DefaultLanguage = 'English'
    LanguageFile = '%EXEPath%Mdiapp.lan'
    LanguagesData = {}
  end
  object MainMenu1: TMainMenu
    Left = 20
    Top = 40
    object File1: TMenuItem
      Caption = '&File'
      Hint = 'File related commands'
      ShortCut = 0
      object FileExitItem: TMenuItem
        Caption = 'E&xit'
        Hint = 'Exit the application'
        ShortCut = 0
        OnClick = FileExitItemClick
      end
    end
    object Features1: TMenuItem
      Caption = 'F&eatures'
      ShortCut = 0
      object DateTimeCurrency1: TMenuItem
        Caption = 'Date / Time / Currency'
        ShortCut = 0
        OnClick = DateTimeCurrency1Click
      end
      object Commondialogs1: TMenuItem
        Caption = 'Common dialogs'
        ShortCut = 0
        OnClick = Commondialogs1Click
      end
      object Messagedialogs1: TMenuItem
        Caption = 'Message dialogs'
        ShortCut = 0
        OnClick = Messagedialogs1Click
      end
      object CommonControls1: TMenuItem
        Caption = 'General Controls'
        ShortCut = 0
        OnClick = CommonControls1Click
      end
      object Stringlists1: TMenuItem
        Caption = 'String lists'
        ShortCut = 0
        OnClick = Stringlists1Click
      end
      object Icons1: TMenuItem
        Caption = 'Icons'
        ShortCut = 0
        OnClick = Icons1Click
      end
      object ImportExport1: TMenuItem
        Caption = 'Import / Export'
        ShortCut = 0
        OnClick = ImportExport1Click
      end
      object Objectresizing1: TMenuItem
        Caption = 'Object resizing'
        ShortCut = 0
        OnClick = Objectresizing1Click
      end
      object Userdefinedstrings1: TMenuItem
        Caption = 'User defined strings'
        ShortCut = 0
        OnClick = Userdefinedstrings1Click
      end
      object Adopton1: TMenuItem
        Caption = 'Adopt on other controls'
        ShortCut = 0
        OnClick = Adopton1Click
      end
      object Speedinlargeprojects1: TMenuItem
        Caption = 'Language Editor'
        ShortCut = 0
        OnClick = Speedinlargeprojects1Click
      end
    end
    object Language1: TMenuItem
      Caption = '&Language'
      ShortCut = 0
      object TMenuItem
        Caption = 'Swedish'
        RadioItem = True
        ShortCut = 0
      end
      object TMenuItem
        Caption = 'English'
        Checked = True
        RadioItem = True
        ShortCut = 0
      end
    end
    object Window1: TMenuItem
      Caption = '&Window'
      Hint = 'Window related commands such as Tile and Cascade'
      ShortCut = 0
      object WindowCascadeItem: TMenuItem
        Caption = '&Cascade'
        Hint = 'Arrange windows to overlap'
        ShortCut = 0
        OnClick = WindowCascadeItemClick
      end
      object WindowTileItem: TMenuItem
        Caption = '&Tile'
        Hint = 'Arrange windows without overlap'
        ShortCut = 0
        OnClick = WindowTileItemClick
      end
      object WindowArrangeItem: TMenuItem
        Caption = '&Arrange Icons'
        Hint = 'Arrange window icons at bottom of main window'
        ShortCut = 0
        OnClick = WindowArrangeItemClick
      end
      object WindowMinimizeItem: TMenuItem
        Caption = '&Minimize All'
        Hint = 'Minimize all windows'
        ShortCut = 0
        OnClick = WindowMinimizeItemClick
      end
    end
    object Help1: TMenuItem
      Caption = '&Register'
      Hint = 'Help topics'
      ShortCut = 0
      object Order1: TMenuItem
        Caption = 'Order now'
        ShortCut = 0
        OnClick = Order1Click
      end
    end
  end
end